home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Games Machine 75
/
XENIATGM75.iso
/
Shareware
/
X-Setup 5.0
/
_SETUP.1
/
XQ Welcome Options 1.xpl
< prev
next >
Wrap
Text File
|
1999-07-18
|
2KB
|
65 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="6"
"COUNT"="3"
"UIPATH"="Appearance\Misc"
"NAME"="Welcome Windows"
"VERSION"="1.31"
"LANGUAGE"="VBScript"
"TEXT 1"="Show Windows "Welcome" window"
"TEXT 2"="Show Internet Explorer "Welcome" window"
"TEXT 3"="Show animated "<- Click here to start""
"DESCRIPTION 1"="Some options about the startup-process."
"AUTHOR"="Xteq Systems"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
Sub Plugin_Initialize
i=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Tips\Show")
if i=1000 then SetUIElement 1,true
i=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Tips\ShowIE4")
if i=1 then SetUIElement 2,true
i=RegReadValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartBanner")
if i=0 then SetUIElement 3,true
End Sub
Sub Plugin_CheckData(ElementIndex)
End Sub
Sub Plugin_Apply(ElementIndex,ElementSubIndex)
b=GetUIElement(1)
if b=true then
Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Tips\Show","1000",3)
else
Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Tips\Show","0000",3)
end if
b=GetUIElement(2)
if b=true then
Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Tips\ShowIE4",1,2)
else
Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Tips\ShowIE4",0,2)
end if
b=GetUIElement(3)
if b=true then
Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartBanner",0,2)
else
Call RegWriteValue("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartBanner",1,2)
end if
Restart
End Sub
Sub Plugin_Terminate
End Sub